#! /usr/bin/perl
use strict;
use warnings;
use Encode;

print "Please input some words in deferent line, and press CTRL + D to finish input\n";

chomp(my @lines = <STDIN>);
print "\n12345678901234567890------------\n";
foreach(@lines) {
		printf "%20s\n", $_;
}
